home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / TECHNICA / AUTOCAD / 3078B.ZIP / PGRUN991.ZIP / PIPEBEND.LSP < prev    next >
Lisp/Scheme  |  1991-05-20  |  6KB  |  19 lines
  1.  
  2. ; *******  ParaDraft Application  ********
  3. ; Parametric Geomtry Program generated by PgPg! 
  4. ; Authored by   : User
  5. ; Application name : A bent pipe
  6. ; Dated         : Monday , 20-5-1991
  7. ; Started at    :  --  11:48:33
  8. ; Finished at   :  --  11:49:19
  9. ; ****************************************
  10. (princ "\nParaDraft application generated on Monday , 20-5-1991 with Shareware Trial Version 1.0S")
  11. (mode 0)(command "VSLIDE"(strcat *pgpg-dir* *pg-name*)) (setq rad9 nil rad10 nil ang7 nil ang8 nil L1 nil L2 nil L3 nil L4 nil L5 nil L6 nil  )  (take-value 'rad9 "rad9" 46.94607638) (take-value 'rad10 "rad10" 10.99743801) (take-value 'ang7 "ang7" 43.2612209) (take-value 'ang8 "ang8" 147.70708596) (take-value 'L1 "L1" 121.11220781) (take-value 'L2 "L2" 147.14756838) (take-value 'L3 "L3" 42.06766117) (take-value 'L4 "L4" 113.96564446) (take-value 'L5 "L5" 125.22887968) (take-value 'L6 "L6" 195.49760868) (command "REDRAW") (initget 1) (setq refpt (getpoint "\nInsertion point :"))
  12. (setq refangle (getval "\nInsertion angle:" 0.0))
  13.  (princ "Computing points ..please wait") 
  14. (setq *en*  (init refpt))(setq *dim-layer* "dim")(setq *cen-layer* "cen")
  15. (setq err 0.0)
  16. (command "COLOR""BYLAYER") (command "DIM1""DIMASZ" 0.01 ) (command "DIM1""DIMTXT" 0.01 ) (setvar "CMDECHO" 0)(MAKE_LAYER "CEN" 2)(setq ANG7(D2R ANG7 )) (setq ANG8(D2R ANG8 )) (setq L11 (/ L1 2.0)  ) (setq L12 L11 ) (setq L13 (/ L2 2.0)  ) (setq L14 L13 ) (setq L15 (/ L3 2.0)  ) (setq L16 L15 ) (setq L17 (/ L4 2.0)  ) (setq L18 L17 )  (setq pt1(delta refpt   0.0  0.0  )) (setq pt25(polar    pt1   (chg-quad (  +  0.0 ANG7  ))   ( - L5 )  )) (setq pt26(polar    pt1   (chg-quad (+ 1.5707963(chg-quad (  + (chg-quad (  +  0.0 ANG7  )) ANG8  )) ))  ( - L17 )  )) (setq pt9(polar    pt1   (chg-quad (  + (chg-quad (  +  0.0 ANG7  )) ANG8  ))   L6  )) (setq pt27(polar    pt1   (chg-quad (+ 1.5707963(chg-quad (  +  0.0 ANG7  )) ))  L14  )) (setq pt28(polar    pt1   (chg-quad (+ 1.5707963(chg-quad (  +  0.0 ANG7  )) ))  L12  )) (setq pt29(polar    pt1   (chg-quad (+ 1.5707963(chg-quad (  + (chg-quad (  +  0.0 ANG7  )) ANG8  )) ))  L18  )) (setq pt30(polar    pt1   (chg-quad (+ 1.5707963(chg-quad (  +  0.0 ANG7  )) ))  ( - L11 )  )) (setq pt31(polar    pt1   (chg-quad (+ 1.5707963(chg-quad (  + (chg-quad (  +  0.0 ANG7  )) ANG8  )) ))  L16  )) (setq pt32(polar    pt1   (chg-quad (+ 1.5707963(chg-quad (  + (chg-quad (  +  0.0 ANG7  )) ANG8  )) ))  ( - L15 )  )) (setq pt33(polar    pt1   (chg-quad (+ 1.5707963(chg-quad (  +  0.0 ANG7  )) ))  ( - L13 )  )) (setq pt2(intersect   (make-line  pt25 (chg-quad (+ 1.5707963(chg-quad (  +  0.0 ANG7  )) )))  (make-line  pt30 (chg-quad (  +  0.0 ANG7  )) )   Nil   )) (setq pt3(intersect   (make-line  pt25 (chg-quad (+ 1.5707963(chg-quad (  +  0.0 ANG7  )) )))  (make-line  pt33 (chg-quad (  +  0.0 ANG7  )) )   Nil   )) (setq pt8(intersect   (make-line  pt1 (chg-quad (  +  0.0 ANG7  )) )  (make-line  pt2 (chg-quad (+ 1.5707963(chg-quad (  +  0.0 ANG7  )) )))   Nil   )) (setq pt10(intersect   (make-line  pt27 (chg-quad (  +  0.0 ANG7  )) )  (make-line  pt2 (chg-quad (+ 1.5707963(chg-quad (  +  0.0 ANG7  )) )))   Nil   )) (setq pt12(intersect   (make-line  pt2 (chg-quad (+ 1.5707963(chg-quad (  +  0.0 ANG7  )) )))  (make-line  pt28 (chg-quad (  +  0.0 ANG7  )) )   Nil   )) (setq pt24(intersect   (make-line  pt33 (chg-quad (  +  0.0 ANG7  )) )  (make-line  pt26 (chg-quad (  + (chg-quad (  +  0.0 ANG7  )) ANG8  )) )   Nil   )) (setq pt23(intersect   (make-line  pt27 (chg-quad (  +  0.0 ANG7  )) )  (make-line  pt29 (chg-quad (  + (chg-quad (  +  0.0 ANG7  )) ANG8  )) )   Nil   )) (setq pt6(intersect   (make-line  pt26 (chg-quad (  + (chg-quad (  +  0.0 ANG7  )) ANG8  )) )  (make-line  pt9 (chg-quad (+ 1.5707963(chg-quad (  + (chg-quad (  +  0.0 ANG7  )) ANG8  )) )))   Nil   )) (setq pt14(intersect   (make-line  pt9 (chg-quad (+ 1.5707963(chg-quad (  + (chg-quad (  +  0.0 ANG7  )) ANG8  )) )))  (make-line  pt29 (chg-quad (  + (chg-quad (  +  0.0 ANG7  )) ANG8  )) )   Nil   )) (setq pt7(intersect   (make-line  pt9 (chg-quad (+ 1.5707963(chg-quad (  + (chg-quad (  +  0.0 ANG7  )) ANG8  )) )))  (make-line  pt32 (chg-quad (  + (chg-quad (  +  0.0 ANG7  )) ANG8  )) )   Nil   )) (setq pt15(intersect   (make-line  pt9 (chg-quad (+ 1.5707963(chg-quad (  + (chg-quad (  +  0.0 ANG7  )) ANG8  )) )))  (make-line  pt31 (chg-quad (  + (chg-quad (  +  0.0 ANG7  )) ANG8  )) )   Nil   )) (princ "Computed points\n")(gc) (make_layer "0" 1) (make_layer "cen" 1) (make_layer "dim" 1) (make_layer "0" 1) (command "LINE" pt2 pt3 "" ) (command "LINE" pt3 pt24 "" ) (setq ent1 (entlast))(command "LINE" pt24 pt6 "" ) (setq ent2 (entlast))(command "LINE" pt6 pt7 "" ) (command "LINE" pt10 pt23 "" ) (setq ent3 (entlast))(command "LINE" pt12 pt10 "" ) (command "LINE" pt23 pt14 "" ) (setq ent4 (entlast))(command "LINE" pt14 pt15 "" )  (command "FILLET""R"rad9 "FILLET"( ssadd  ent4 ( ssadd  ent3 ( ssadd))) )  (setq ent5 (entlast)) (setq ent6 (entlast))  (command "FILLET""R"rad10 "FILLET"( ssadd  ent2 ( ssadd  ent1 ( ssadd))) )  (setq ent7 (entlast)) (setq ent8 (entlast))  (draw-cline  pt8 357.85835419(chg-quad (  +  0.0 ANG7  ))  )  (draw-cline  pt1 556.79040026(chg-quad (  + (chg-quad (  +  0.0 ANG7  )) ANG8  ))  ) 
  17.  
  18.  (rotate-it refpt refangle) (princ "\n Drawing created by a ParaDraft application")(mode 1) ( setq refpt nil   pt1 nil   pt2 nil   pt3 nil   pt5 nil   pt6 nil   pt7 nil   pt8 nil   pt9 nil   pt10 nil   pt12 nil   pt13 nil   pt14 nil   pt15 nil   pt17 nil   pt18 nil   pt19 nil   pt20 nil   pt21 nil   pt22 nil   pt23 nil   pt24 nil   pt25 nil   pt26 nil   pt27 nil   pt28 nil   pt29 nil   pt30 nil   pt31 nil   pt32 nil   pt33 nil   L1 nil   L2 nil   L3 nil   L4 nil   L5 nil   L6 nil   L11 nil   L12 nil   L13 nil   L14 nil   L15 nil   L16 nil   L17 nil   L18 nil   )  (gc) (princ) ; Program generated at  :  --  11:49:24
  19.